home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD School House 9
/
CD School House 9.0 - Wayzata Technology (1994).iso
/
pc
/
games
/
mac
/
__the_arcade__
/
sword_play
/
card_2350.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
15KB
|
714 lines
-- card: 2350 from stack: in
-- bmap block id: 9378
-- flags: 4000
-- background id: 2143
-- name: Off/Def
----- HyperTalk script -----
on idle
global StartTime
global SetPass
global MissedAttack
if (the seconds >= 10 + StartTime) and (not SetPass) then
put true into MissedAttack
go card "Figure Attack"
end if
end idle
on openCard
global StartTime
global GoneStatus
if Not GoneStatus then
put the seconds into StartTime
end if
put false into GoneStatus
end openCard
-- part 4 (button)
-- low flags: 80
-- high flags: 0006
-- rect: left=60 top=39 right=137 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left
----- HyperTalk script -----
on mouseUp
global YourOff
put 1 into x
if YourOff <> x Then
set hilite of button YourOff to false
If YourOff = 2 then
hide button 11
hide button 14
hide button 17
else
hide button 11
hide button 12
hide button 14
hide button 15
hide button 17
hide button 18
end if
set hilite of button x to true
put x into YourOff
end if
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=90 top=39 right=137 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Center
----- HyperTalk script -----
on mouseUp
global YourOff
put 2 into x
if YourOff <> x then
set hilite of button YourOff to false
If YourOff = 1 then
show button 11
show button 14
show button 17
else
hide button 12
hide button 15
hide button 18
end if
set hilite of button x to true
put x into YourOff
end if
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=119 top=39 right=137 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
global YourOff
put 3 into x
if YourOff <> x then
set hilite of button YourOff to false
If YourOff = 1 then
show button 11
show button 12
show button 14
show button 15
show button 17
show button 18
else
if YourOff = 2 then
show button 12
show button 15
show button 18
end if
end if
set hilite of button x to true
put x into YourOff
end if
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=179 top=158 right=173 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: High
----- HyperTalk script -----
on mouseUp
global YourOff
put 4 into x
if YourOff <> x then
set hilite of button YourOff to false
If YourOff = 1 then
show button 11
show button 12
show button 14
show button 15
show button 17
show button 18
else
if YourOff = 2 then
show button 12
show button 15
show button 18
end if
end if
set hilite of button x to true
put x into YourOff
end if
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=179 top=190 right=205 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mid
----- HyperTalk script -----
on mouseUp
global YourOff
put 5 into x
if YourOff <> x then
set hilite of button YourOff to false
If YourOff = 1 then
show button 11
show button 12
show button 14
show button 15
show button 17
show button 18
else
if YourOff = 2 then
show button 12
show button 15
show button 18
end if
end if
set hilite of button x to true
put x into YourOff
end if
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=179 top=225 right=240 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Low
----- HyperTalk script -----
on mouseUp
global YourOff
put 6 into x
if YourOff <> x then
set hilite of button YourOff to false
If YourOff = 1 then
show button 11
show button 12
show button 14
show button 15
show button 17
show button 18
else
if YourOff = 2 then
show button 12
show button 15
show button 18
end if
end if
set hilite of button x to true
put x into YourOff
end if
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=230 top=282 right=328 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help Index
----- HyperTalk script -----
on mouseUp
push this card
visual effect iris open slowly
go to card "Sword Play Help Index"
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=100 top=284 right=307 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attack Help
----- HyperTalk script -----
on mouseUp
push This Card
visual effect iris open slowly
go card "Offense Help Start"
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=285 right=306 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Defense Help
----- HyperTalk script -----
on mouseUp
push This card
visual effect iris open slowly
go card "Defense Help Start"
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=351 top=145 right=163 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild High Left
----- HyperTalk script -----
on mouseUp
global YourDef
put 1 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
show button 1
else
if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
show button 1
show button 2
end if
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=381 top=145 right=163 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild High Center
----- HyperTalk script -----
on mouseUp
global YourDef
put 2 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
show button 2
else
hide button 1
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 37 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=411 top=145 right=163 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild High Right
----- HyperTalk script -----
on mouseUp
global YourDef
put 3 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
hide button 2
else
hide button 1
hide button 2
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 38 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=351 top=177 right=195 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Mid Left
----- HyperTalk script -----
on mouseUp
global YourDef
put 4 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
show button 1
else
if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
show button 1
show button 2
end if
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=381 top=177 right=195 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Mid Center
----- HyperTalk script -----
on mouseUp
global YourDef
put 5 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
show button 2
else
hide button 1
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 40 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=411 top=177 right=195 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Mid Right
----- HyperTalk script -----
on mouseUp
global YourDef
put 6 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
hide button 2
else
hide button 1
hide button 2
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=351 top=209 right=227 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Low Left
----- HyperTalk script -----
on mouseUp
global YourDef
put 7 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
show button 1
else
if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
show button 1
show button 2
end if
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 44 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=381 top=209 right=227 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Low Center
----- HyperTalk script -----
on mouseUp
global YourDef
put 8 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 3) or (YourDef = 6) or (YourDef = 9) then
show button 2
else
hide button 1
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 45 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=411 top=209 right=227 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sheild Low Right
----- HyperTalk script -----
on mouseUp
global YourDef
put 9 into x
if YourDef <> x Then
put YourDef into it
add 9 to it
set hilite of button it to false
if (YourDef = 2) or (YourDef = 5) or (YourDef = 8) then
hide button 2
else
hide button 1
hide button 2
end if
put x into YourDef
add 9 to x
set hilite of button x to true
end if
end mouseUp
-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=373 top=316 right=340 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global GoneStatus
put true into GoneStatus
go card "Player Status"
end mouseUp
-- part 49 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=3 top=289 right=301 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Password
----- HyperTalk script -----
on mouseUp
global SetPass
ask password "Please enter password"
if it = 2170878455 then
put true into SetPass
show menubar
set userlevel to 5
else
put false into SetPass
end if
end mouseUp
-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=201 top=36 right=141 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global MissedAttack
put false into MissedAttack
go card "Figure Attack"
end mouseUp
-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=360 top=3 right=22 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
go to card "Sneak Out"
end mouseUp